*** empty log message ***

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index 1f52c46a2d2f4c1ff47c9f0b33e3a2c23d0dc983..b3e2762bad57fbe34ae1ba6448621fa9579b89df 100644 (file)
--- a/lisp/rlogin.el
+++ b/lisp/rlogin.el
@@ -81,7 +81,8 @@ the rlogin when starting."
   (let* ((buffer-name (format "*rlogin-%s*" host))
          (args (if (and rlogin-explicit-args (listp rlogin-explicit-args))
                    (cons host rlogin-explicit-args)
-                 (list host))))
+                 (list host)))
+        proc)
     (and prefix (setq buffer-name 
                       (buffer-name (generate-new-buffer buffer-name))))
     (switch-to-buffer buffer-name)